home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
301-325
/
disk_308
/
vlt
/
rexx
/
remote.vlt
< prev
next >
Wrap
Text File
|
1992-05-06
|
736b
|
38 lines
/*
**
** Send a command to a remote VLT
**
*/
str = ""
do i = 1
/*
* First ask for a command to be executed by the remote VLT
*/
str = request(50, 50, ,
"Enter a command for the remote to execute:",str,,"Cancel", VLT)
if str = "" then exit(0);
/*
* The initial escape sequence...
*/
string = '1b'x||"[?91h"
/*
* ...and the password (AMIGA in this case)...
*/
string = string ||"AMIGA~"
/*
* ...and the command...
*/
string = string ||str
/*
* ...and the final escape sequence, make up the full string.
*/
string = string ||'1b'x||"[?91l"
/*
* Send this string without further translation to the remote VLT.
* (The initial "" means take the rest of the input line).
*/
send '""'string
end